﻿Public Class Archimago : Inherits Mago

    Private Const FUERZA_ARCH = FUERZA_MAG
    Private Const ATAQUE_ARCH = ATAQUE_MAG
    Private Const VELOCIDAD_ARCH = VELOCIDAD_MAG
    Private Const VIDA_ARCH = VIDA_MAG + 1
    Private Const COSTE_ARCH = COSTE_MAG + 2
    Private Const DEFENSA_ARCH = DEFENSA_MAG
    Private Const DISCIPLINA_ARCH = DISCIPLINA_MAG
    Private Const TAMAÑO_ARCH = TAMAÑO_MAG
    Private Const MAGIA_ARCH = MAGIA_MAG + 2

    Public Sub New(ByVal nombre As String)
        MyBase.New(nombre)
        Me.Fuerza = FUERZA_ARCH
        Me.Ataque = ATAQUE_ARCH
        Me.Velocidad = VELOCIDAD_ARCH
        Me.Vida = VIDA_ARCH
        Me.Coste = COSTE_ARCH
        Me.Defensa = DEFENSA_ARCH
        Me.Disciplina = DISCIPLINA_ARCH
        Me.Tamaño = TAMAÑO_ARCH
        Me.Magia = MAGIA_ARCH
        Me.Hechizos = New List(Of Hechizo)
    End Sub

    Public Overloads Function AñadirHechizo(ByVal opcion As Integer) As Integer
        Select Case (opcion)
            Case Is = 1
                Me.Hechizos.Add(New Hechizo("BolaFuego"))
                Return 4
            Case Is = 2
                Me.Hechizos.Add(New Hechizo("Debilidad"))
                Return 3
            Case Is = 3
                Me.Hechizos.Add(New Hechizo("Teleportar"))
                Return 5
            Case Is = 4
                Me.Hechizos.Add(New Hechizo("Meteorito"))
                Return 7
        End Select
        Return 0
    End Function
End Class
